func1 str = str ++ "!"

func2 str = str !! 4

func3 = drop 9

thirdLetter :: String -> Char
thirdLetter x = x !! 2

letterIndex :: Int -> Char
letterIndex x = "Curry is awesome!" !! x

-- rvrs only works on "Curry is awesome"
rvrs :: String -> String 
rvrs str = concat [part3, " ", part2, " ", part1]
  where part1 = take 5 str
        part2 = take 2 $ drop 6 str 
        part3 = drop 9 str

main = do
  print $ func1 "Curry is awesome"
  print $ func2 "Curry is awesome!"
  print $ func3 "Curry is awesome!"
  print $ rvrs "Curry is awsome"